inherited ASetFieldForm: TASetFieldForm
  Width = 1110
  Height = 583
  inherited ToolBar1: TToolBar
    Width = 1110
  end
  object cxSplitter1: TcxSplitter [1]
    Left = 0
    Top = 300
    Width = 1110
    Height = 8
    HotZoneClassName = 'TcxMediaPlayer8Style'
    AlignSplitter = salBottom
    Control = Panel1
  end
  object Panel1: TPanel [2]
    Left = 0
    Top = 308
    Width = 1110
    Height = 275
    Align = alBottom
    TabOrder = 1
    object cxSplitter2: TcxSplitter
      Left = 476
      Top = 1
      Width = 8
      Height = 273
      HotZoneClassName = 'TcxMediaPlayer8Style'
      Control = cxGroupBox2
    end
    object cxGroupBox1: TcxGroupBox
      Left = 484
      Top = 1
      Align = alLeft
      Caption = #26639#20301#26522#20030#20540
      TabOrder = 1
      Height = 273
      Width = 244
    end
    object cxGroupBox2: TcxGroupBox
      Tag = 99
      Left = 1
      Top = 1
      Hint = 'CDSsys_Fields'
      Align = alLeft
      Caption = #26639#20301#20449#24687
      TabOrder = 2
      Height = 273
      Width = 475
      object Field_Name: TLabel
        Left = 50
        Top = 28
        Width = 56
        Height = 13
        Alignment = taRightJustify
        Caption = 'Field_Name'
      end
      object Field_Desc: TLabel
        Left = 53
        Top = 53
        Width = 53
        Height = 13
        Alignment = taRightJustify
        Caption = 'Field_Desc'
      end
      object Field_Length: TLabel
        Left = 47
        Top = 75
        Width = 61
        Height = 13
        Alignment = taRightJustify
        Caption = 'Field_Length'
      end
      object cxDBTextEdit1: TcxDBTextEdit
        Left = 110
        Top = 24
        DataBinding.DataField = 'Field_Name'
        DataBinding.DataSource = Dsys_Fields
        TabOrder = 0
        Width = 121
      end
      object cxDBTextEdit2: TcxDBTextEdit
        Left = 110
        Top = 47
        DataBinding.DataField = 'Field_Desc'
        DataBinding.DataSource = Dsys_Fields
        TabOrder = 1
        Width = 121
      end
      object cxDBTextEdit3: TcxDBTextEdit
        Left = 110
        Top = 71
        DataBinding.DataField = 'Field_Length'
        DataBinding.DataSource = Dsys_Fields
        TabOrder = 2
        Width = 121
      end
    end
    object wwDBGrid2: TwwDBGrid
      Left = 731
      Top = 16
      Width = 352
      Height = 120
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = MyDataSource1
      TabOrder = 3
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
    end
    object btn1: TButton
      Left = 747
      Top = 161
      Width = 75
      Height = 25
      Caption = 'btn1'
      TabOrder = 4
      OnClick = btn1Click
    end
  end
  object wwDBGrid1: TwwDBGrid [3]
    Left = 0
    Top = 37
    Width = 1110
    Height = 263
    Selected.Strings = (
      'Field_Name'#9'20'#9'Field_Name'
      'Field_Desc'#9'20'#9'Field_Desc'
      'Display_Format'#9'23'#9'Display_Format'
      'Edit_Format'#9'40'#9'Edit_Format'
      'Field_Tag'#9'10'#9'Field_Tag'
      'Field_Type'#9'40'#9'Field_Type'
      'Field_Length'#9'10'#9'Field_Length'
      'Default_Value'#9'60'#9'Default_Value'
      'Field_Roles'#9'10'#9'Field_Roles')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = Dsys_Fields
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgWordWrap]
    TabOrder = 3
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  inherited PubDesigner: TfrxDesigner
    Left = 948
    Top = 3
  end
  inherited frxPubReport: TfrxReport
    Left = 918
    Top = 3
    Datasets = <>
    Variables = <>
    Style = <>
  end
  inherited ActionList: TActionList
    Left = 977
  end
  inherited PopupMenu1: TPopupMenu
    Left = 888
    Top = 3
  end
  object Qsys_Fields: TMyQuery
    Connection = ADMSystem.myConn
    SQL.Strings = (
      'select * from sys_fields order by Field_name')
    Left = 151
    Top = 142
  end
  object Dsys_Fields: TMyDataSource
    DataSet = CDSsys_Fields
    Left = 356
    Top = 162
  end
  object Qsys_fieldvalues: TMyQuery
    Connection = ADMSystem.myConn
    SQL.Strings = (
      'select * from sys_fieldvalues order by auto_no')
    Left = 851
    Top = 449
    object Qsys_fieldvaluesauto_no: TIntegerField
      AutoGenerateValue = arAutoInc
      DisplayWidth = 10
      FieldName = 'auto_no'
      Origin = 'sys_fieldvalues.auto_no'
    end
    object Qsys_fieldvaluesField_Name: TStringField
      DisplayWidth = 40
      FieldName = 'Field_Name'
      Origin = 'sys_fieldvalues.Field_Name'
      Size = 40
    end
    object Qsys_fieldvaluesField_values: TStringField
      DisplayWidth = 80
      FieldName = 'Field_values'
      Origin = 'sys_fieldvalues.Field_values'
      Size = 80
    end
  end
  object Dsys_fieldvalues: TMyDataSource
    DataSet = Qsys_fieldvalues
    Left = 888
    Top = 448
  end
  object CDSsys_Fields: TClientDataSet
    Active = True
    Aggregates = <>
    CommandText = 'select * from sys_fields order by Field_name'
    Params = <>
    ProviderName = 'dtstprvdr1'
    Left = 352
    Top = 121
    object CDSsys_FieldsField_Name: TStringField
      DisplayWidth = 20
      FieldName = 'Field_Name'
      Origin = 'sys_fields.Field_Name'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 40
    end
    object CDSsys_FieldsField_Desc: TStringField
      DisplayWidth = 20
      FieldName = 'Field_Desc'
      Origin = 'sys_fields.Field_Desc'
      Size = 40
    end
    object CDSsys_FieldsDisplay_Format: TStringField
      DisplayWidth = 23
      FieldName = 'Display_Format'
      Origin = 'sys_fields.Display_Format'
      Size = 40
    end
    object CDSsys_FieldsEdit_Format: TStringField
      DisplayWidth = 40
      FieldName = 'Edit_Format'
      Origin = 'sys_fields.Edit_Format'
      Size = 40
    end
    object CDSsys_FieldsField_Tag: TIntegerField
      DisplayWidth = 10
      FieldName = 'Field_Tag'
      Origin = 'sys_fields.Field_Tag'
    end
    object CDSsys_FieldsField_Type: TStringField
      DisplayWidth = 40
      FieldName = 'Field_Type'
      Origin = 'sys_fields.Field_Type'
      Size = 40
    end
    object CDSsys_FieldsField_Length: TIntegerField
      DisplayWidth = 10
      FieldName = 'Field_Length'
      Origin = 'sys_fields.Field_Length'
    end
    object CDSsys_FieldsDefault_Value: TStringField
      DisplayWidth = 60
      FieldName = 'Default_Value'
      Origin = 'sys_fields.Default_Value'
      Size = 60
    end
    object CDSsys_FieldsField_Roles: TIntegerField
      DisplayWidth = 10
      FieldName = 'Field_Roles'
      Origin = 'sys_fields.Field_Roles'
    end
  end
  object dtstprvdr1: TDataSetProvider
    DataSet = Qsys_Fields
    Options = [poAllowCommandText]
    Left = 345
    Top = 87
  end
  object MyDataSource1: TMyDataSource
    DataSet = Qsys_fieldvalues
    Left = 780
    Top = 409
  end
end
